Option Strict Off
Option Explicit On
Module Module1
	
	Public Const gstrAppTitle As String = "Steve O's SMS 2003 Collection Membership Wizard"
	
	'Sub tempUserLookup()
	'      If objList.Count > 0 Then
	'        If mnuFileComputerMode.Checked = True Then
	'
	'            Dim objUsers As SWbemObjectSet, objUser As SWbemObject, strUserName As String
	'            Dim objNewComputerList As StringArr
	'            Set objNewComputerList = New StringArr
	'            For lngIndex = 0 To objList.Count - 1
	'                strUserName = objList.Item(lngIndex)
	'
	'                StatusBar1.SimpleText = "Looking up user " & strUserName & "..."
	'            '''
	'                If mobjConn.SMSServices Is Nothing Then
	'                    MsgBox "You must be connected before performing a user lookup.", vbOKOnly + vbCritical, gstrAppTitle
	'                    Exit Sub
	'                End If
	'
	'
	'                Set objUsers = mobjConn.SMSServices.ExecQuery("Select Name, ResourceID from SMS_R_System where LastLogonUserName='" & strUserName & "'", , wbemFlagForwardOnly + wbemFlagReturnImmediately)
	'
	'                For Each objUser In objUsers
	'                    objNewComputerList.Add objUser.Properties_.Item("Name").Value
	'                    StatusBar1.SimpleText = "Looking up user " & strUserName & "... Found " & objNewComputerList.Last
	'                Next
	'            Next
	'
	'            'get rid of the contents of objList and insert contents of new computer list.
	'            objList.Clear
	'            objList.GenerateNewFromString objNewComputerList.Glue(","), ",", True, False
	'            objList.EliminateDuplicates
	'        End If
	'    End If
	'
	'End Sub
End Module